home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Helm d4.adf
/
Customer
(
.txt
)
< prev
next >
Wrap
Helm Multimedia Book
|
1993-07-14
|
33KB
|
570 lines
Customer
10-Nov-92
New...
Open...
Make Copy...
Streamline...
Print...
Report...
Preferences...
Workbench
Help...
About...
Quit...
Paste
Clear
Select All
Cut Page
Copy Page
Colors
Load...
Save...
Restore Colors
Default Colors
Brush Colors
Image Colors
Cycle
Grid...
Stop Sound
Show All
Edit Form
Share
Next Page
Previous Page
First Page
Last Page
Backward
Forward
Last Book
Browse...
Autobrowse...
Bookshelf
New Page
Delete Page
New Form
Load Form...
Save Form...
Image
Load...
Save...
Capture...
Clipboard
Paste
Spare
Swap Frames
Copy to Spare
Merge in Front
Merge in Back
Delete Spare
Frame
Previous
Delete
Copy to All
Color
Remap
Transparency
Paper <-> Pen
Paper -> Pen
Count
Vertical
Horizontal
Info...
Brush
Load...
Save...
Restore
Clipboard
Paste
Color
Remap
Transparency
Paper <-> Pen
Paper -> Pen
Center
Corner
Any Point
Any Size
Halve
Double
Halve Width
Halve Height
Double Width
Double Height
To PAL
To NTSC
Vertical
Horizontal
Shear
Vertical
Horizontal
Rotate
Any Angle
Paint
Matte
Color
Replace
Smear
Dissolve
Spare
Cycle
Cycle 2
Gradient
Gradient 2
Smudge
Chaos
Count
Custom
Dither
Edges
Object
Load...
Save...
Bring to Front
Send to Back
Bring Closer
Send Farther
Group
Ungroup
Duplicate...
Align...
Info...
Actions...
Script...
Load...
Save...
Plain
Underline
Italic
Shadow
Font...
Spacing...
Hypertext
Actions...
Script...
Tools
Coordinates
Title Bar
Palette
Colors
Patterns
Paint Tools
Paint Types
Histogram
Magnifier
Messages
Draw Tools
Layers
Pages
Author
Book...
Form...
Page...
Display...
Menus...
Narrator...
Hypertext...
Resources...
Effect...
Effect Area
DDDUUUfffwww
Book23
PTopaz8
topaz.font
20GLOB
Forester
Nickerson
ram:Book23
Books/Customer
Last Name
First Name
Company
Street
State
Country
Notes
Phone
@DDelete Page
@wNew Page
@FFind
@SSort
@RReturn
@BBookshelf
~@NNext
@PPrevious
& C U S T O M E R D A T A B A S E
Number
Company
@QQuit
Phone
@11 Dial
@22 Dial
on SelectUp
begin
create page
put timestring(date, time, "%m") & "-" into datestring
put timestring(date, time, "%d") & "-" after datestring
put timestring(date, time, "%y") after datestring
put datestring into textfield "Date"
_on SelectUp
begin
answer "What field do you want to search?" with "@IID" or "~@NLast Name" or "@CCompany"
put it into sf
ask "Enter search text:"
if it is not empty begin
lock display
set allowsearch of textfield "Last" to false
set allowsearch of textfield "Number" to false
set allowsearch of textfield "Company" to false
if sf is "Last Name" then set allowsearch of textfield "Last" to true
if sf is "ID" then set allowsearch of textfield "Number" to true
if sf is "Company" then set allowsearch of textfield "Company" to true
unlock display
find it
end
NaWhat field do you want to search?
~@NLast Name
@CCompany
Enter search text:
Number
Company
Last Name
Number
Company
Company
don SelectUp
begin
answer "Sort on which textfield?" with "@IID" or "~@NLast Name" or "@CCompany"
if it is "Last Name" then put "Last" into sf
if it is "ID" then put "Number" into sf
if it is "Company" then put "Company" into sf
answer "Do you really want to sort?" with "~@YYes" or "@NNo"
if it is "Yes" then sort ascending by textfield sf
Sort on which textfield?
~@NLast Name
@CCompany
Last Name
Number
Company
Company
Do you really want to sort?
~@YYes
Mon SelectUp
begin
answer "Customer Database V1.1\nEagle Tree Software"
Customer Database V1.1
Eagle Tree Software
/on SelectUp
begin
dial textfield "Phone"
Phone
-on SelectUp
begin
dial textfield "FAX"
}on PageClose
begin
if the name of this page != textfield "Last" then
set the name of this page to textfield "Last"
1-804/452-0623
23860-0164
Hopewell
P.O. Box 164
Eagle Tree Software
06-08-93
Scott
Nickerson
Nickerson
ptopaz
3o3xg
ITALIA
Volterra
19 Kathleen Street
Ramage Software, Ltd
11-15-92
Dudley
"Rhymes with Damage."
99999
Hollywood
456 Rodeo Drive
Hotspur, Inc.
03-4-93
Cecil
Forester
Forester
Chicago
p?0v`
p?0|0
s>|~?
22222
Williamsburg
432 Cook Way
Inport/Export, Inc.
06-28-93
Alexander
99999
Hollywood
456 Smallbridge Drive
Hotspur, Inc.
03-4-93
Cecil
Forester
Forester
Last Name
First Name
Company
Street
State
Country
Notes
Phone
@DDelete Page
@wNew Page
@FFind
@SSort
@RReturn
@BBookshelf
~@NNext
@PPrevious
Customer Database
Number
Company
@QQuit
Phone
@11 Dial
@22 Dial
on SelectUp
begin
create page
put timestring(date, time, "%m") & "-" into datestring
put timestring(date, time, "%d") & "-" after datestring
put timestring(date, time, "%y") after datestring
put datestring into textfield "Date"
_on SelectUp
begin
answer "What field do you want to search?" with "@IID" or "~@NLast Name" or "@CCompany"
put it into sf
ask "Enter search text:"
if it is not empty begin
lock display
set allowsearch of textfield "Last" to false
set allowsearch of textfield "Number" to false
set allowsearch of textfield "Company" to false
if sf is "Last Name" then set allowsearch of textfield "Last" to true
if sf is "ID" then set allowsearch of textfield "Number" to true
if sf is "Company" then set allowsearch of textfield "Company" to true
unlock display
find it
end
NaWhat field do you want to search?
~@NLast Name
@CCompany
Enter search text:
Number
Company
Last Name
Number
Company
Company
don SelectUp
begin
answer "Sort on which textfield?" with "@IID" or "~@NLast Name" or "@CCompany"
if it is "Last Name" then put "Last" into sf
if it is "ID" then put "Number" into sf
if it is "Company" then put "Company" into sf
answer "Do you really want to sort?" with "~@YYes" or "@NNo"
if it is "Yes" then sort ascending by textfield sf
Sort on which textfield?
~@NLast Name
@CCompany
Last Name
Number
Company
Company
Do you really want to sort?
~@YYes
Mon SelectUp
begin
answer "Customer Database V1.1\nEagle Tree Software"
Customer Database V1.1
Eagle Tree Software
/on SelectUp
begin
dial textfield "Phone"
Phone
-on SelectUp
begin
dial textfield "FAX"
}on PageClose
begin
if the name of this page != textfield "Last" then
set the name of this page to textfield "Last"
Customer
Scott Nickerson
10-Nov-92
New...
Open...
Make Copy...
Streamline...
Print...
Report...
Preferences...
Workbench
Help...
About...
Quit...
Paste
Clear
Select All
Cut Page
Copy Page
Colors
Load...
Save...
Restore Colors
Default Colors
Brush Colors
Image Colors
Cycle
Grid...
Stop Sound
Show All
Edit Form
Share
Next Page
Previous Page
First Page
Last Page
Backward
Forward
Last Book
Browse...
Autobrowse...
Bookshelf
New Page
Delete Page
New Form
Load Form...
Save Form...
Image
Load...
Save...
Capture...
Clipboard
Paste
Spare
Swap Frames
Copy to Spare
Merge in Front
Merge in Back
Delete Spare
Frame
Previous
Delete
Copy to All
Color
Remap
Transparency
Paper <-> Pen
Paper -> Pen
Count
Vertical
Horizontal
Info...
Brush
Load...
Save...
Restore
Clipboard
Paste
Color
Remap
Transparency
Paper <-> Pen
Paper -> Pen
Center
Corner
Any Point
Any Size
Halve
Double
Halve Width
Halve Height
Double Width
Double Height
To PAL
To NTSC
Vertical
Horizontal
Shear
Vertical
Horizontal
Rotate
Any Angle
Paint
Matte
Color
Replace
Smear
Dissolve
Spare
Cycle
Cycle 2
Gradient
Gradient 2
Smudge
Chaos
Count
Custom
Dither
Edges
Object
Load...
Save...
Bring to Front
Send to Back
Bring Closer
Send Farther
Group
Ungroup
Duplicate...
Align...
Info...
Actions...
Script...
Load...
Save...
Plain
Underline
Italic
Shadow
Font...
Spacing...
Hypertext
Actions...
Script...
Tools
Coordinates
Title Bar
Palette
Colors
Patterns
Paint Tools
Paint Types
Histogram
Magnifier
Messages
Draw Tools
Layers
Pages
Author
Book...
Form...
Page...
Display...
Menus...
Narrator...
Hypertext...
Resources...
Effect...
Effect Area
DDDUUUfffwww